/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_05 / marten / hdbackup

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 48 44 42 61 63 6b 75 70 |..... > |HDBackup|
|00000010| 0d 00 14 04 0d 00 1e 05 | 3a 0d 00 28 21 3a 20 f4 |........|:..(!: .|
|00000020| 20 49 6e 63 72 65 6d 65 | 6e 74 61 6c 20 76 6f 6c | Increme|ntal vol|
|00000030| 75 6d 65 20 62 61 63 6b | 75 70 0d 00 32 05 3a 0d |ume back|up..2.:.|
|00000040| 00 3c 1f 3a 20 f4 20 28 | 63 29 20 20 4e 6f 76 65 |.<.: . (|c)  Nove|
|00000050| 6d 62 65 72 20 31 39 38 | 38 20 20 4a 4a 4d 0d 00 |mber 198|8  JJM..|
|00000060| 46 05 3a 0d 00 50 04 0d | 00 51 0f eb 20 30 20 3a |F.:..P..|.Q.. 0 :|
|00000070| 20 fb 20 30 2c 34 0d 00 | 5a 2b f1 20 27 27 22 20 | . 0,4..|Z+. ''" |
|00000080| 20 49 6e 63 72 65 6d 65 | 6e 74 61 6c 20 42 61 63 | Increme|ntal Bac|
|00000090| 6b 75 70 20 76 65 72 73 | 69 6f 6e 20 31 2e 30 30 |kup vers|ion 1.00|
|000000a0| 22 0d 00 64 2b f1 20 22 | 20 20 2d 2d 2d 2d 2d 2d |"..d+. "|  ------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 22 27 27 0d 00 65 0b |--------|-"''..e.|
|000000d0| 40 25 20 3d 20 31 30 0d | 00 6e 05 3a 0d 00 78 2d |@% = 10.|.n.:..x-|
|000000e0| e8 20 22 45 6e 74 65 72 | 3a 20 20 73 6f 75 72 63 |. "Enter|:  sourc|
|000000f0| 65 20 64 72 69 76 65 20 | 6e 75 6d 62 65 72 20 5b |e drive |number [|
|00000100| 34 5d 3a 20 22 20 64 72 | 24 0d 00 82 31 e7 20 64 |4]: " dr|$...1. d|
|00000110| 72 24 3d 22 22 20 8c 20 | 73 72 63 64 72 76 24 20 |r$="" . |srcdrv$ |
|00000120| 3d 20 22 3a 34 22 20 8b | 20 73 72 63 64 72 76 24 |= ":4" .| srcdrv$|
|00000130| 20 3d 20 22 3a 22 2b 64 | 72 24 0d 00 8c 32 e8 20 | = ":"+d|r$...2. |
|00000140| 22 45 6e 74 65 72 3a 20 | 20 64 65 73 74 69 6e 61 |"Enter: | destina|
|00000150| 74 69 6f 6e 20 64 72 69 | 76 65 20 6e 75 6d 62 65 |tion dri|ve numbe|
|00000160| 72 20 5b 30 5d 3a 20 22 | 20 64 72 24 0d 00 96 31 |r [0]: "| dr$...1|
|00000170| e7 20 64 72 24 3d 22 22 | 20 8c 20 64 73 74 64 72 |. dr$=""| . dstdr|
|00000180| 76 24 20 3d 20 22 3a 30 | 22 20 8b 20 64 73 74 64 |v$ = ":0|" . dstd|
|00000190| 72 76 24 20 3d 20 22 3a | 22 2b 64 72 24 0d 00 a0 |rv$ = ":|"+dr$...|
|000001a0| 05 3a 0d 00 aa 40 f1 20 | 27 22 49 6e 66 6f 3a 20 |.:...@. |'"Info: |
|000001b0| 20 62 61 63 6b 69 6e 67 | 20 75 70 20 64 72 69 76 | backing| up driv|
|000001c0| 65 20 22 3b 73 72 63 64 | 72 76 24 3b 22 20 6f 6e |e ";srcd|rv$;" on|
|000001d0| 74 6f 20 64 72 69 76 65 | 20 22 3b 64 73 74 64 72 |to drive| ";dstdr|
|000001e0| 76 24 0d 00 b4 0a f2 64 | 64 61 74 65 0d 00 be 0c |v$.....d|date....|
|000001f0| e7 20 66 75 6c 6c 20 8c | 0d 00 c8 40 20 f1 20 22 |. full .|...@ . "|
|00000200| 57 61 72 6e 69 6e 67 3a | 20 20 70 72 6f 62 6c 65 |Warning:|  proble|
|00000210| 6d 20 72 65 61 64 69 6e | 67 20 6c 61 73 74 20 64 |m readin|g last d|
|00000220| 61 74 65 2c 20 64 75 6d | 70 69 6e 67 20 65 76 65 |ate, dum|ping eve|
|00000230| 72 79 74 68 69 6e 67 22 | 0d 00 d2 05 cc 0d 00 dc |rything"|........|
|00000240| 28 20 f1 20 22 49 6e 66 | 6f 3a 20 20 6c 61 73 74 |( . "Inf|o:  last|
|00000250| 20 64 75 6d 70 20 64 61 | 74 65 20 77 61 73 20 22 | dump da|te was "|
|00000260| 3b 64 61 74 65 0d 00 e6 | 05 cd 0d 00 f0 05 3a 0d |;date...|......:.|
|00000270| 00 fa 17 f2 6e 65 77 64 | 69 73 63 28 64 73 74 64 |....newd|isc(dstd|
|00000280| 72 76 24 2c b9 29 0d 01 | 04 05 3a 0d 01 0e 17 f2 |rv$,.)..|..:.....|
|00000290| 73 63 61 6e 28 73 72 63 | 64 72 76 24 2b 22 2e 24 |scan(src|drv$+".$|
|000002a0| 22 29 0d 01 18 0d e7 20 | b1 3e 30 20 8c 20 f1 0d |")..... |.>0 . ..|
|000002b0| 01 22 0b f2 75 70 64 61 | 74 65 0d 01 2c 24 f1 20 |."..upda|te..,$. |
|000002c0| 22 53 75 63 63 65 73 73 | 3a 20 20 64 75 6d 70 20 |"Success|:  dump |
|000002d0| 63 6f 6d 70 6c 65 74 65 | 64 20 4f 4b 22 27 0d 01 |complete|d OK"'..|
|000002e0| 36 05 3a 0d 01 40 05 e0 | 0d 01 4a 04 0d 01 54 20 |6.:..@..|..J...T |
|000002f0| dd 20 f2 63 6f 70 79 28 | 73 72 63 24 2c 64 73 74 |. .copy(|src$,dst|
|00000300| 24 2c 6e 61 6d 65 24 2c | 6c 65 6e 29 0d 01 5e 0d |$,name$,|len)..^.|
|00000310| ea 20 6e 65 65 64 2c 4a | 25 0d 01 68 05 3a 0d 01 |. need,J|%..h.:..|
|00000320| 72 3e 3a 20 f4 20 46 69 | 6e 64 20 61 20 64 75 6d |r>: . Fi|nd a dum|
|00000330| 70 20 64 69 73 63 20 77 | 69 74 68 20 65 6e 6f 75 |p disc w|ith enou|
|00000340| 67 68 20 73 70 61 63 65 | 2c 20 74 68 65 6e 20 63 |gh space|, then c|
|00000350| 6f 70 79 20 74 68 65 20 | 66 69 6c 65 0d 01 7c 05 |opy the |file..|.|
|00000360| 3a 0d 01 86 3f 3a 20 f4 | 20 41 73 73 75 6d 65 20 |:...?: .| Assume |
|00000370| 74 68 65 20 77 6f 72 73 | 74 20 63 61 73 65 20 65 |the wors|t case e|
|00000380| 78 74 72 61 20 73 70 61 | 63 65 20 6e 65 65 64 65 |xtra spa|ce neede|
|00000390| 64 20 2d 20 69 2e 65 2e | 20 61 6c 6c 20 74 68 65 |d - i.e.| all the|
|000003a0| 0d 01 90 26 3a 20 f4 20 | 64 69 72 65 63 74 6f 72 |...&: . |director|
|000003b0| 69 65 73 20 6e 65 65 64 | 20 74 6f 20 62 65 20 63 |ies need| to be c|
|000003c0| 72 65 61 74 65 64 0d 01 | 9a 05 3a 0d 01 a4 1c 20 |reated..|..:.... |
|000003d0| f2 64 65 6c 65 74 65 28 | 64 73 74 24 2b 22 2e 22 |.delete(|dst$+"."|
|000003e0| 2b 6e 61 6d 65 24 29 0d | 01 ae 0f 20 6e 65 65 64 |+name$).|... need|
|000003f0| 20 3d 20 6c 65 6e 0d 01 | b8 18 20 e3 20 4a 25 20 | = len..|.. . J% |
|00000400| 3d 20 31 20 b8 20 a9 28 | 6e 61 6d 65 24 29 0d 01 |= 1 . .(|name$)..|
|00000410| c2 27 20 20 e7 20 c1 6e | 61 6d 65 24 2c 4a 25 2c |.'  . .n|ame$,J%,|
|00000420| 31 29 3d 22 2e 22 20 8c | 20 6e 65 65 64 20 2b 3d |1)="." .| need +=|
|00000430| 20 26 38 30 30 0d 01 cc | 06 20 ed 0d 01 d6 17 20 | &800...|. ..... |
|00000440| f2 65 6e 73 75 72 65 28 | 64 73 74 24 2c 6e 65 65 |.ensure(|dst$,nee|
|00000450| 64 29 0d 01 e0 36 20 f2 | 64 65 6c 65 74 65 28 64 |d)...6 .|delete(d|
|00000460| 73 74 24 2b 22 2e 22 2b | 6e 61 6d 65 24 29 20 3a |st$+"."+|name$) :|
|00000470| 20 f4 20 64 69 73 63 20 | 6d 61 79 20 68 61 76 65 | . disc |may have|
|00000480| 20 63 68 61 6e 67 65 64 | 0d 01 ea 46 20 f1 20 22 | changed|...F . "|
|00000490| 49 6e 66 6f 3a 20 20 63 | 6f 70 79 69 6e 67 20 22 |Info:  c|opying "|
|000004a0| 3b 6e 61 6d 65 24 3b 22 | 20 73 69 7a 65 20 22 3b |;name$;"| size ";|
|000004b0| 6c 65 6e 3b 22 2e 20 66 | 72 6f 6d 20 22 3b 73 72 |len;". f|rom ";sr|
|000004c0| 63 24 3b 22 20 74 6f 20 | 22 3b 64 73 74 24 0d 01 |c$;" to |";dst$..|
|000004d0| f4 1a 20 f2 63 70 79 28 | 73 72 63 24 2c 64 73 74 |.. .cpy(|src$,dst|
|000004e0| 24 2c 6e 61 6d 65 24 29 | 0d 01 fe 05 e1 0d 02 08 |$,name$)|........|
|000004f0| 04 0d 02 12 14 dd 20 f2 | 64 65 6c 65 74 65 28 66 |...... .|delete(f|
|00000500| 69 6c 65 24 29 0d 02 1c | 05 3a 0d 02 26 36 3a 20 |ile$)...|.:..&6: |
|00000510| f4 20 46 6f 72 63 65 66 | 75 6c 6c 79 20 72 65 6d |. Forcef|ully rem|
|00000520| 6f 76 65 20 74 68 65 20 | 67 69 76 65 6e 20 66 69 |ove the |given fi|
|00000530| 6c 65 2c 20 69 66 20 69 | 74 20 65 78 69 73 74 73 |le, if i|t exists|
|00000540| 0d 02 30 05 3a 0d 02 3a | 17 20 e7 20 a4 70 65 65 |..0.:..:|. . .pee|
|00000550| 6b 28 66 69 6c 65 24 29 | 3d 31 20 8c 0d 02 44 31 |k(file$)|=1 ...D1|
|00000560| 20 20 f1 20 22 49 6e 66 | 6f 3a 20 20 73 75 70 65 |  . "Inf|o:  supe|
|00000570| 72 73 65 64 69 6e 67 20 | 65 78 69 73 74 69 6e 67 |rseding |existing|
|00000580| 20 66 69 6c 65 20 22 3b | 66 69 6c 65 24 0d 02 4e | file ";|file$..N|
|00000590| 2c 20 20 c8 99 20 22 4f | 53 5f 46 53 43 6f 6e 74 |,  .. "O|S_FSCont|
|000005a0| 72 6f 6c 22 2c 32 37 2c | 66 69 6c 65 24 2c 2c 25 |rol",27,|file$,,%|
|000005b0| 30 30 30 30 30 30 30 31 | 30 0d 02 58 06 20 cd 0d |00000001|0..X. ..|
|000005c0| 02 62 05 e1 0d 02 6c 04 | 0d 02 76 1b dd 20 f2 63 |.b....l.|..v.. .c|
|000005d0| 70 79 28 73 72 63 24 2c | 64 73 74 24 2c 6e 61 6d |py(src$,|dst$,nam|
|000005e0| 65 24 29 0d 02 80 0f ea | 20 64 69 72 24 2c 6e 61 |e$).....| dir$,na|
|000005f0| 6d 24 0d 02 8a 05 3a 0d | 02 94 44 3a 20 f4 20 43 |m$....:.|..D: . C|
|00000600| 72 65 61 74 65 20 61 6e | 79 20 64 69 72 65 63 74 |reate an|y direct|
|00000610| 6f 72 69 65 73 20 74 68 | 61 74 20 61 72 65 20 72 |ories th|at are r|
|00000620| 65 71 75 69 72 65 64 2c | 20 74 68 65 6e 20 63 6f |equired,| then co|
|00000630| 70 79 20 74 68 65 20 66 | 69 6c 65 0d 02 9e 05 3a |py the f|ile....:|
|00000640| 0d 02 a8 28 20 64 69 72 | 24 20 3d 20 64 73 74 24 |...( dir|$ = dst$|
|00000650| 2b 22 2e 24 22 20 3a 20 | 6e 61 6d 24 20 3d 20 c1 |+".$" : |nam$ = .|
|00000660| 6e 61 6d 65 24 2c 33 29 | 0d 02 b2 14 20 c8 95 20 |name$,3)|.... .. |
|00000670| a7 6e 61 6d 24 2c 22 2e | 22 29 3e 30 0d 02 bc 25 |.nam$,".|")>0...%|
|00000680| 20 20 64 69 72 24 20 2b | 3d 20 22 2e 22 2b c0 6e |  dir$ +|= "."+.n|
|00000690| 61 6d 24 2c a7 6e 61 6d | 24 2c 22 2e 22 29 2d 31 |am$,.nam|$,".")-1|
|000006a0| 29 0d 02 c6 18 20 20 e7 | 20 a4 70 65 65 6b 28 64 |)....  .| .peek(d|
|000006b0| 69 72 24 29 3c 3e 32 20 | 8c 0d 02 d0 2a 20 20 20 |ir$)<>2 |....*   |
|000006c0| f1 20 22 49 6e 66 6f 3a | 20 20 63 72 65 61 74 69 |. "Info:|  creati|
|000006d0| 6e 67 20 64 69 72 65 63 | 74 6f 72 79 20 22 3b 64 |ng direc|tory ";d|
|000006e0| 69 72 24 0d 02 da 1e 20 | 20 20 c8 99 20 22 4f 53 |ir$.... |  .. "OS|
|000006f0| 5f 46 69 6c 65 22 2c 38 | 2c 64 69 72 24 2c 2c 2c |_File",8|,dir$,,,|
|00000700| 30 0d 02 e4 07 20 20 cd | 0d 02 ee 20 20 20 6e 61 |0....  .|...   na|
|00000710| 6d 24 20 3d 20 c1 6e 61 | 6d 24 2c a7 6e 61 6d 24 |m$ = .na|m$,.nam$|
|00000720| 2c 22 2e 22 29 2b 31 29 | 0d 02 f8 06 20 ce 0d 03 |,".")+1)|.... ...|
|00000730| 02 42 20 c8 99 20 22 4f | 53 5f 46 53 43 6f 6e 74 |.B .. "O|S_FSCont|
|00000740| 72 6f 6c 22 2c 32 36 2c | 73 72 63 24 2b 22 2e 22 |rol",26,|src$+"."|
|00000750| 2b 6e 61 6d 65 24 2c 64 | 73 74 24 2b 22 2e 22 2b |+name$,d|st$+"."+|
|00000760| 6e 61 6d 65 24 2c 25 30 | 30 30 30 30 30 30 31 30 |name$,%0|00000010|
|00000770| 0d 03 0c 05 e1 0d 03 16 | 04 0d 03 20 12 dd 20 a4 |........|... .. .|
|00000780| 70 65 65 6b 28 66 69 6c | 65 24 29 0d 03 2a 0a ea |peek(fil|e$)..*..|
|00000790| 20 74 79 70 65 0d 03 34 | 05 3a 0d 03 3e 28 3a 20 | type..4|.:..>(: |
|000007a0| f4 20 47 65 74 20 74 68 | 65 20 74 79 70 65 20 6f |. Get th|e type o|
|000007b0| 66 20 74 68 65 20 6e 61 | 6d 65 64 20 6f 62 6a 65 |f the na|med obje|
|000007c0| 63 74 0d 03 48 05 3a 0d | 03 52 21 20 c8 99 20 22 |ct..H.:.|.R! .. "|
|000007d0| 58 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 66 69 6c 65 |XOS_File|",5,file|
|000007e0| 24 20 b8 20 74 79 70 65 | 0d 03 5c 25 20 e7 20 28 |$ . type|..\% . (|
|000007f0| 74 79 70 65 3c 30 29 20 | 84 20 28 74 79 70 65 3e |type<0) |. (type>|
|00000800| 32 29 20 8c 20 74 79 70 | 65 20 3d 20 30 0d 03 66 |2) . typ|e = 0..f|
|00000810| 0a 3d 20 74 79 70 65 0d | 03 70 04 0d 03 7a 18 dd |.= type.|.p...z..|
|00000820| 20 f2 65 6e 73 75 72 65 | 28 64 72 76 24 2c 6e 65 | .ensure|(drv$,ne|
|00000830| 65 64 29 0d 03 84 0a ea | 20 66 72 65 65 0d 03 8e |ed).....| free...|
|00000840| 05 3a 0d 03 98 3f 3a 20 | f4 20 45 6e 73 75 72 65 |.:...?: |. Ensure|
|00000850| 20 74 68 61 74 20 74 68 | 65 20 64 72 69 76 65 20 | that th|e drive |
|00000860| 68 61 73 20 61 74 20 6c | 65 61 73 74 20 74 68 61 |has at l|east tha|
|00000870| 74 20 6d 75 63 68 20 66 | 72 65 65 20 73 70 61 63 |t much f|ree spac|
|00000880| 65 0d 03 a2 05 3a 0d 03 | ac 06 20 f5 0d 03 b6 26 |e....:..|.. ....&|
|00000890| 20 20 c8 99 20 22 41 44 | 46 53 5f 46 72 65 65 53 |  .. "AD|FS_FreeS|
|000008a0| 70 61 63 65 22 2c 64 72 | 76 24 20 b8 20 2c 66 72 |pace",dr|v$ . ,fr|
|000008b0| 65 65 0d 03 c0 13 20 20 | e7 20 66 72 65 65 3c 6e |ee....  |. free<n|
|000008c0| 65 65 64 20 8c 0d 03 ca | 50 20 20 20 f1 20 22 57 |eed ....|P   . "W|
|000008d0| 61 72 6e 69 6e 67 3a 20 | 20 6e 6f 74 20 65 6e 6f |arning: | not eno|
|000008e0| 75 67 68 20 73 70 61 63 | 65 20 6f 6e 20 22 3b 64 |ugh spac|e on ";d|
|000008f0| 72 76 24 3b 22 20 28 6e | 65 65 64 20 22 3b 6e 65 |rv$;" (n|eed ";ne|
|00000900| 65 64 3b 22 2c 20 66 72 | 65 65 20 22 3b 66 72 65 |ed;", fr|ee ";fre|
|00000910| 65 3b 22 29 22 0d 03 d4 | 17 20 20 20 f2 6e 65 77 |e;")"...|.   .new|
|00000920| 64 69 73 63 28 64 72 76 | 24 2c a3 29 0d 03 de 07 |disc(drv|$,.)....|
|00000930| 20 20 cd 0d 03 e8 11 20 | fd 20 66 72 65 65 3e 3d |  ..... |. free>=|
|00000940| 6e 65 65 64 0d 03 f2 05 | e1 0d 03 fc 04 0d 04 06 |need....|........|
|00000950| 1a dd 20 f2 6e 65 77 64 | 69 73 63 28 64 72 76 24 |.. .newd|isc(drv$|
|00000960| 2c 66 69 72 73 74 29 0d | 04 10 1b ea 20 72 6f 6f |,first).|.... roo|
|00000970| 74 6f 6b 2c 77 72 64 24 | 2c 66 6f 72 6d 61 74 74 |tok,wrd$|,formatt|
|00000980| 65 64 0d 04 1a 05 3a 0d | 04 24 2c 3a 20 f4 20 52 |ed....:.|.$,: . R|
|00000990| 65 71 75 65 73 74 20 74 | 68 61 74 20 61 6e 6f 74 |equest t|hat anot|
|000009a0| 68 65 72 20 64 69 73 63 | 20 69 73 20 6d 6f 75 6e |her disc| is moun|
|000009b0| 74 65 64 0d 04 2e 40 3a | 20 f4 20 49 66 20 69 74 |ted...@:| . If it|
|000009c0| 20 69 73 20 62 6c 61 6e | 6b 2c 20 66 6f 72 6d 61 | is blan|k, forma|
|000009d0| 74 20 69 74 20 2d 20 6f | 74 68 65 72 77 69 73 65 |t it - o|therwise|
|000009e0| 20 6d 61 79 62 65 20 63 | 6c 65 61 72 20 69 74 20 | maybe c|lear it |
|000009f0| 6f 75 74 0d 04 38 05 3a | 0d 04 42 2b e7 20 66 69 |out..8.:|..B+. fi|
|00000a00| 72 73 74 20 8c 20 77 72 | 64 24 20 3d 20 22 61 22 |rst . wr|d$ = "a"|
|00000a10| 20 8b 20 77 72 64 24 20 | 3d 20 22 61 6e 6f 74 68 | . wrd$ |= "anoth|
|00000a20| 65 72 22 0d 04 43 11 66 | 6f 72 6d 61 74 74 65 64 |er"..C.f|ormatted|
|00000a30| 20 3d 20 a3 0d 04 4c 06 | 20 f5 0d 04 56 41 20 20 | = ...L.| ...VA  |
|00000a40| f1 20 22 48 61 6c 74 65 | 64 3a 20 20 6d 6f 75 6e |. "Halte|d:  moun|
|00000a50| 74 20 22 3b 77 72 64 24 | 3b 22 20 64 69 73 63 20 |t ";wrd$|;" disc |
|00000a60| 6f 6e 20 22 3b 64 72 76 | 24 3b 22 20 74 68 65 6e |on ";drv|$;" then|
|00000a70| 20 52 45 54 55 52 4e 3a | 20 22 3b 0d 04 60 14 20 | RETURN:| ";..`. |
|00000a80| 20 f5 20 3a 20 fd 20 a5 | 3d 31 33 20 3a 20 f1 0d | . : . .|=13 : ..|
|00000a90| 04 6a 23 20 20 72 6f 6f | 74 6f 6b 20 3d 20 28 a4 |.j#  roo|tok = (.|
|00000aa0| 70 65 65 6b 28 64 72 76 | 24 2b 22 2e 24 22 29 3d |peek(drv|$+".$")=|
|00000ab0| 32 29 0d 04 74 12 20 20 | e7 20 ac 20 72 6f 6f 74 |2)..t.  |. . root|
|00000ac0| 6f 6b 20 8c 0d 04 7e 2c | 20 20 20 f1 20 22 57 61 |ok ...~,|   . "Wa|
|00000ad0| 72 6e 69 6e 67 3a 20 20 | 74 68 69 73 20 64 69 73 |rning:  |this dis|
|00000ae0| 63 20 69 73 20 75 6e 72 | 65 61 64 61 62 6c 65 22 |c is unr|eadable"|
|00000af0| 0d 04 88 2e 20 20 20 f1 | 20 22 43 6f 6e 66 69 72 |....   .| "Confir|
|00000b00| 6d 3a 20 20 66 6f 72 6d | 61 74 20 74 68 69 73 20 |m:  form|at this |
|00000b10| 64 69 73 63 20 28 59 2f | 4e 29 3a 20 22 3b 0d 04 |disc (Y/|N): ";..|
|00000b20| 92 11 20 20 20 e7 20 a4 | 79 65 73 6e 6f 20 8c 0d |..   . .|yesno ..|
|00000b30| 04 9c 30 20 20 20 20 f1 | 20 27 22 57 61 69 74 3a |..0    .| '"Wait:|
|00000b40| 20 20 66 6f 72 6d 61 74 | 74 69 6e 67 20 64 72 69 |  format|ting dri|
|00000b50| 76 65 20 22 3b 64 72 76 | 24 3b 22 2e 2e 2e 22 0d |ve ";drv|$;"...".|
|00000b60| 04 a6 1f 20 20 20 20 ff | 20 22 46 4f 52 4d 41 54 |...    .| "FORMAT|
|00000b70| 20 22 2b 64 72 76 24 2b | 22 20 44 20 59 22 0d 04 | "+drv$+|" D Y"..|
|00000b80| b0 25 20 20 20 20 72 6f | 6f 74 6f 6b 20 3d 20 28 |.%    ro|otok = (|
|00000b90| a4 70 65 65 6b 28 64 72 | 76 24 2b 22 2e 24 22 29 |.peek(dr|v$+".$")|
|00000ba0| 3d 32 29 0d 04 b1 15 20 | 20 20 20 66 6f 72 6d 61 |=2).... |   forma|
|00000bb0| 74 74 65 64 20 3d 20 b9 | 0d 04 ba 08 20 20 20 cc |tted = .|....   .|
|00000bc0| 0d 04 c4 09 20 20 20 20 | f1 0d 04 ce 08 20 20 20 |....    |.....   |
|00000bd0| cd 0d 04 d8 07 20 20 cd | 0d 04 e2 0d 20 fd 20 72 |.....  .|.... . r|
|00000be0| 6f 6f 74 6f 6b 0d 04 ec | 06 20 3a 0d 04 ed 14 20 |ootok...|. :.... |
|00000bf0| e7 20 ac 20 66 6f 72 6d | 61 74 74 65 64 20 8c 0d |. . form|atted ..|
|00000c00| 04 f6 30 20 20 f1 20 22 | 43 6f 6e 66 69 72 6d 3a |..0  . "|Confirm:|
|00000c10| 20 20 63 6c 65 61 72 20 | 6f 75 74 20 74 68 69 73 |  clear |out this|
|00000c20| 20 64 69 73 63 20 28 59 | 2f 4e 29 3a 20 22 3b 0d | disc (Y|/N): ";.|
|00000c30| 05 00 10 20 20 e7 20 a4 | 79 65 73 6e 6f 20 8c 0d |...  . .|yesno ..|
|00000c40| 05 0a 2d 20 20 20 f1 20 | 27 22 57 61 69 74 3a 20 |..-   . |'"Wait: |
|00000c50| 20 63 6c 65 61 72 69 6e | 67 20 64 72 69 76 65 20 | clearin|g drive |
|00000c60| 22 3b 64 72 76 24 3b 22 | 2e 2e 2e 22 0d 05 14 33 |";drv$;"|..."...3|
|00000c70| 20 20 20 c8 99 20 22 4f | 53 5f 46 53 43 6f 6e 74 |   .. "O|S_FSCont|
|00000c80| 72 6f 6c 22 2c 32 37 2c | 64 72 76 24 2b 22 2e 24 |rol",27,|drv$+".$|
|00000c90| 2e 2a 22 2c 2c 25 30 30 | 30 30 30 30 30 31 31 0d |.*",,%00|0000011.|
|00000ca0| 05 1e 07 20 20 cc 0d 05 | 28 08 20 20 20 f1 0d 05 |...  ...|(.   ...|
|00000cb0| 32 07 20 20 cd 0d 05 33 | 06 20 cd 0d 05 3c 05 e1 |2.  ...3|. ...<..|
|00000cc0| 0d 05 46 04 0d 05 50 12 | dd 20 f2 73 63 61 6e 28 |..F...P.|. .scan(|
|00000cd0| 72 6f 6f 74 24 29 0d 05 | 5a 1e ea 20 62 6c 6b 2c |root$)..|Z.. blk,|
|00000ce0| 6f 66 66 2c 6e 61 6d 65 | 24 2c 4a 25 2c 64 69 72 |off,name|$,J%,dir|
|00000cf0| 2c 6e 75 6d 0d 05 64 05 | 3a 0d 05 6e 48 3a 20 f4 |,num..d.|:..nH: .|
|00000d00| 20 54 72 61 76 65 72 73 | 65 20 61 20 64 69 72 65 | Travers|e a dire|
|00000d10| 63 74 6f 72 79 20 73 75 | 62 74 72 65 65 2c 20 63 |ctory su|btree, c|
|00000d20| 61 6c 6c 69 6e 67 20 50 | 52 4f 43 61 63 74 69 6f |alling P|ROCactio|
|00000d30| 6e 20 66 6f 72 20 65 61 | 63 68 20 6f 62 6a 65 63 |n for ea|ch objec|
|00000d40| 74 0d 05 78 29 3a 20 f4 | 20 61 6e 64 20 72 65 63 |t..x): .| and rec|
|00000d50| 75 72 73 69 6e 67 20 66 | 6f 72 20 65 61 63 68 20 |ursing f|or each |
|00000d60| 64 69 72 65 63 74 6f 72 | 79 2e 0d 05 82 05 3a 0d |director|y.....:.|
|00000d70| 05 8c 0d 20 de 20 62 6c | 6b 20 34 30 0d 05 96 0c |... . bl|k 40....|
|00000d80| 20 6f 66 66 20 3d 20 30 | 0d 05 a0 06 20 f5 0d 05 | off = 0|.... ...|
|00000d90| aa 39 20 20 c8 99 20 22 | 4f 53 5f 47 42 50 42 22 |.9  .. "|OS_GBPB"|
|00000da0| 2c 31 30 2c 72 6f 6f 74 | 24 2c 62 6c 6b 2c 31 2c |,10,root|$,blk,1,|
|00000db0| 6f 66 66 2c 34 30 2c 22 | 2a 22 20 b8 20 2c 2c 2c |off,40,"|*" . ,,,|
|00000dc0| 6e 75 6d 2c 6f 66 66 0d | 05 b4 0f 20 20 e7 20 6e |num,off.|...  . n|
|00000dd0| 75 6d 3d 31 20 8c 0d 05 | be 29 20 20 20 4a 25 20 |um=1 ...|.)   J% |
|00000de0| 3d 20 32 30 20 3a 20 f5 | 20 3a 20 4a 25 20 2b 3d |= 20 : .| : J% +=|
|00000df0| 20 31 20 3a 20 fd 20 62 | 6c 6b 3f 4a 25 3d 30 0d | 1 : . b|lk?J%=0.|
|00000e00| 05 c8 26 20 20 20 62 6c | 6b 3f 4a 25 20 3d 20 31 |..&   bl|k?J% = 1|
|00000e10| 33 20 3a 20 6e 61 6d 65 | 24 20 3d 20 24 28 62 6c |3 : name|$ = $(bl|
|00000e20| 6b 2b 32 30 29 0d 05 d2 | 17 20 20 20 64 69 72 20 |k+20)...|.   dir |
|00000e30| 3d 20 28 62 6c 6b 21 31 | 36 3d 32 29 0d 05 dc 31 |= (blk!1|6=2)...1|
|00000e40| 20 20 20 f2 61 63 74 69 | 6f 6e 28 72 6f 6f 74 24 |   .acti|on(root$|
|00000e50| 2c 6e 61 6d 65 24 2c 64 | 69 72 2c 62 6c 6b 21 30 |,name$,d|ir,blk!0|
|00000e60| 2c 62 6c 6b 21 34 2c 62 | 6c 6b 21 38 29 0d 05 e6 |,blk!4,b|lk!8)...|
|00000e70| 25 20 20 20 e7 20 64 69 | 72 20 8c 20 f2 73 63 61 |%   . di|r . .sca|
|00000e80| 6e 28 72 6f 6f 74 24 2b | 22 2e 22 2b 6e 61 6d 65 |n(root$+|"."+name|
|00000e90| 24 29 0d 05 f0 07 20 20 | cd 0d 05 fa 0c 20 fd 20 |$)....  |..... . |
|00000ea0| 6f 66 66 3c 30 0d 06 04 | 05 e1 0d 06 0e 04 0d 06 |off<0...|........|
|00000eb0| 18 2b dd 20 f2 61 63 74 | 69 6f 6e 28 64 69 72 24 |.+. .act|ion(dir$|
|00000ec0| 2c 6e 61 6d 65 24 2c 64 | 69 72 2c 6c 6f 61 64 2c |,name$,d|ir,load,|
|00000ed0| 65 78 65 63 2c 6c 65 6e | 29 0d 06 22 19 ea 20 73 |exec,len|)..".. s|
|00000ee0| 74 61 6d 70 2c 63 6f 70 | 79 74 68 69 73 2c 6b 65 |tamp,cop|ythis,ke|
|00000ef0| 79 24 0d 06 2c 05 3a 0d | 06 36 2a 3a 20 f4 20 44 |y$..,.:.|.6*: . D|
|00000f00| 65 63 69 64 65 20 77 68 | 65 74 68 65 72 20 74 6f |ecide wh|ether to|
|00000f10| 20 63 6f 70 79 20 6f 76 | 65 72 20 61 20 66 69 6c | copy ov|er a fil|
|00000f20| 65 0d 06 40 05 3a 0d 06 | 4a 1e 20 73 74 61 6d 70 |e..@.:..|J. stamp|
|00000f30| 20 3d 20 a4 73 74 61 6d | 70 28 6c 6f 61 64 2c 65 | = .stam|p(load,e|
|00000f40| 78 65 63 29 0d 06 54 39 | 20 f1 20 bd 28 31 33 29 |xec)..T9| . .(13)|
|00000f50| 3b 22 53 63 61 6e 6e 69 | 6e 67 3a 20 20 22 3b 64 |;"Scanni|ng:  ";d|
|00000f60| 69 72 24 3b 22 2e 22 3b | 6e 61 6d 65 24 3b 22 20 |ir$;".";|name$;" |
|00000f70| 20 22 3b 6c 65 6e 3b 22 | 2e 20 20 22 3b 0d 06 5e | ";len;"|.  ";..^|
|00000f80| 0c 20 e7 20 64 69 72 20 | 8c 0d 06 68 0e 20 20 f1 |. . dir |...h.  .|
|00000f90| 20 22 44 69 72 22 3b 0d | 06 72 06 20 cc 0d 06 7c | "Dir";.|.r. ...||
|00000fa0| 14 20 20 f1 20 a4 74 79 | 70 65 28 6c 6f 61 64 29 |.  . .ty|pe(load)|
|00000fb0| 3b 0d 06 86 06 20 cd 0d | 06 90 10 20 ef 20 32 33 |;.... ..|... . 23|
|00000fc0| 2c 38 2c 35 2c 36 7c 0d | 06 9a 0e 20 e7 20 ac 20 |,8,5,6|.|... . . |
|00000fd0| 64 69 72 20 8c 0d 06 a4 | 0e 20 20 e7 20 66 75 6c |dir ....|.  . ful|
|00000fe0| 6c 20 8c 0d 06 ae 13 20 | 20 20 63 6f 70 79 74 68 |l ..... |  copyth|
|00000ff0| 69 73 20 3d 20 b9 0d 06 | b8 07 20 20 cc 0d 06 c2 |is = ...|..  ....|
|00001000| 12 20 20 20 e7 20 73 74 | 61 6d 70 3e 30 20 8c 0d |.   . st|amp>0 ..|
|00001010| 06 cc 23 20 20 20 20 e7 | 20 73 74 61 6d 70 3e 64 |..#    .| stamp>d|
|00001020| 61 74 65 20 8c 20 63 6f | 70 79 74 68 69 73 20 3d |ate . co|pythis =|
|00001030| 20 b9 0d 06 d6 08 20 20 | 20 cc 0d 06 e0 38 20 20 | .....  | ....8  |
|00001040| 20 20 f1 20 27 22 43 6f | 6e 66 69 72 6d 3a 20 20 |  . '"Co|nfirm:  |
|00001050| 63 6f 70 79 20 74 68 69 | 73 20 75 6e 73 74 61 6d |copy thi|s unstam|
|00001060| 70 65 64 20 66 69 6c 65 | 20 28 59 2f 4e 29 3a 20 |ped file| (Y/N): |
|00001070| 22 3b 0d 06 ea 2c 20 20 | 20 20 63 6f 70 79 74 68 |";...,  |  copyth|
|00001080| 69 73 20 3d 20 a4 79 65 | 73 6e 6f 20 3a 20 e7 20 |is = .ye|sno : . |
|00001090| ac 20 63 6f 70 79 74 68 | 69 73 20 8c 20 f1 0d 06 |. copyth|is . ...|
|000010a0| f4 08 20 20 20 cd 0d 06 | fe 07 20 20 cd 0d 07 08 |..   ...|..  ....|
|000010b0| 12 20 20 e7 20 63 6f 70 | 79 74 68 69 73 20 8c 0d |.  . cop|ythis ..|
|000010c0| 07 12 08 20 20 20 f1 0d | 07 1c 34 20 20 20 f2 63 |...   ..|..4   .c|
|000010d0| 6f 70 79 28 73 72 63 64 | 72 76 24 2c 64 73 74 64 |opy(srcd|rv$,dstd|
|000010e0| 72 76 24 2c c1 64 69 72 | 24 2b 22 2e 22 2b 6e 61 |rv$,.dir|$+"."+na|
|000010f0| 6d 65 24 2c 34 29 2c 6c | 65 6e 29 0d 07 26 07 20 |me$,4),l|en)..&. |
|00001100| 20 cd 0d 07 30 06 20 cd | 0d 07 3a 05 e1 0d 07 44 | ...0. .|..:....D|
|00001110| 04 0d 07 4e 0c dd 20 a4 | 79 65 73 6e 6f 0d 07 58 |...N.. .|yesno..X|
|00001120| 0a ea 20 6b 65 79 24 0d | 07 62 05 3a 0d 07 6c 21 |.. key$.|.b.:..l!|
|00001130| 3a 20 f4 20 41 63 63 65 | 70 74 20 61 20 59 65 73 |: . Acce|pt a Yes|
|00001140| 20 6f 72 20 4e 6f 20 61 | 6e 73 77 65 72 0d 07 76 | or No a|nswer..v|
|00001150| 05 3a 0d 07 80 06 20 f5 | 0d 07 8a 0e 20 20 6b 65 |.:.... .|....  ke|
|00001160| 79 24 20 3d 20 be 0d 07 | 94 16 20 fd 20 a7 22 59 |y$ = ...|.. . ."Y|
|00001170| 4e 79 6e 22 2c 6b 65 79 | 24 29 3e 30 0d 07 9e 0c |Nyn",key|$)>0....|
|00001180| 20 f1 20 6b 65 79 24 3b | 0d 07 a8 1b 3d 20 28 6b | . key$;|....= (k|
|00001190| 65 79 24 3d 22 59 22 20 | 84 20 6b 65 79 24 3d 22 |ey$="Y" |. key$="|
|000011a0| 79 22 29 0d 07 b2 04 0d | 07 bc 0c dd 20 f2 64 64 |y").....|.... .dd|
|000011b0| 61 74 65 0d 07 c6 14 ea | 20 74 79 70 65 2c 6c 6f |ate.....| type,lo|
|000011c0| 61 64 2c 65 78 65 63 0d | 07 d0 05 3a 0d 07 da 44 |ad,exec.|...:...D|
|000011d0| 3a 20 f4 20 47 65 74 20 | 74 68 65 20 6c 61 73 74 |: . Get |the last|
|000011e0| 20 64 75 6d 70 20 64 61 | 74 65 20 66 72 6f 6d 20 | dump da|te from |
|000011f0| 74 68 65 20 74 69 6d 65 | 73 74 61 6d 70 20 6f 66 |the time|stamp of|
|00001200| 20 74 68 65 20 6d 61 72 | 6b 65 72 20 66 69 6c 65 | the mar|ker file|
|00001210| 0d 07 e4 05 3a 0d 07 ee | 3b 20 c8 99 20 22 4f 53 |....:...|; .. "OS|
|00001220| 5f 46 69 6c 65 22 2c 35 | 2c 73 72 63 64 72 76 24 |_File",5|,srcdrv$|
|00001230| 2b 22 2e 24 2e 44 75 6d | 70 44 61 74 65 22 20 b8 |+".$.Dum|pDate" .|
|00001240| 20 74 79 70 65 2c 2c 6c | 6f 61 64 2c 65 78 65 63 | type,,l|oad,exec|
|00001250| 0d 07 f8 10 20 e7 20 74 | 79 70 65 3c 3e 31 20 8c |.... . t|ype<>1 .|
|00001260| 0d 08 02 0e 20 20 66 75 | 6c 6c 20 3d 20 b9 0d 08 |....  fu|ll = ...|
|00001270| 0c 06 20 cc 0d 08 16 1e | 20 20 64 61 74 65 20 3d |.. .....|  date =|
|00001280| 20 a4 73 74 61 6d 70 28 | 6c 6f 61 64 2c 65 78 65 | .stamp(|load,exe|
|00001290| 63 29 0d 08 20 10 20 20 | e7 20 64 61 74 65 3d 30 |c).. .  |. date=0|
|000012a0| 20 8c 0d 08 2a 0f 20 20 | 20 66 75 6c 6c 20 3d 20 | ...*.  | full = |
|000012b0| b9 0d 08 34 07 20 20 cc | 0d 08 3e 0f 20 20 20 66 |...4.  .|..>.   f|
|000012c0| 75 6c 6c 20 3d 20 a3 0d | 08 48 07 20 20 cd 0d 08 |ull = ..|.H.  ...|
|000012d0| 52 06 20 cd 0d 08 5c 05 | e1 0d 08 66 04 0d 08 70 |R. ...\.|...f...p|
|000012e0| 11 dd 20 a4 74 79 70 65 | 28 6c 6f 61 64 29 0d 08 |.. .type|(load)..|
|000012f0| 7a 09 ea 20 62 6c 6b 0d | 08 84 05 3a 0d 08 8e 42 |z.. blk.|...:...B|
|00001300| 3a 20 f4 20 44 65 63 6f | 64 65 20 74 68 65 20 66 |: . Deco|de the f|
|00001310| 69 6c 65 20 74 79 70 65 | 20 66 72 6f 6d 20 61 20 |ile type| from a |
|00001320| 6c 6f 61 64 20 61 64 64 | 72 65 73 73 20 28 61 6c |load add|ress (al|
|00001330| 77 61 79 73 20 6c 65 6e | 67 74 68 20 38 29 0d 08 |ways len|gth 8)..|
|00001340| 98 05 3a 0d 08 a2 0c 20 | de 20 62 6c 6b 20 39 0d |..:.... |. blk 9.|
|00001350| 08 ac 26 20 e7 20 28 6c | 6f 61 64 20 80 20 26 46 |..& . (l|oad . &F|
|00001360| 46 46 30 30 30 30 30 29 | 3c 3e 26 46 46 46 30 30 |FF00000)|<>&FFF00|
|00001370| 30 30 30 20 8c 0d 08 b6 | 12 20 20 3d 20 22 20 20 |000 ....|.  = "  |
|00001380| 20 20 20 20 20 20 22 0d | 08 c0 06 20 cc 0d 08 ca |      ".|... ....|
|00001390| 41 20 20 c8 99 20 22 4f | 53 5f 46 53 43 6f 6e 74 |A  .. "O|S_FSCont|
|000013a0| 72 6f 6c 22 2c 31 38 2c | 2c 28 6c 6f 61 64 20 80 |rol",18,|,(load .|
|000013b0| 20 26 30 30 30 46 46 46 | 30 30 29 3e 3e 38 20 b8 | &000FFF|00)>>8 .|
|000013c0| 20 2c 2c 62 6c 6b 21 30 | 2c 62 6c 6b 21 34 0d 08 | ,,blk!0|,blk!4..|
|000013d0| d4 10 20 20 62 6c 6b 3f | 38 20 3d 20 31 33 0d 08 |..  blk?|8 = 13..|
|000013e0| de 0c 20 20 3d 20 24 62 | 6c 6b 0d 08 e8 06 20 cd |..  = $b|lk.... .|
|000013f0| 0d 08 f2 05 3d 0d 08 fc | 04 0d 09 06 17 dd 20 a4 |....=...|...... .|
|00001400| 73 74 61 6d 70 28 6c 6f | 61 64 2c 65 78 65 63 29 |stamp(lo|ad,exec)|
|00001410| 0d 09 10 05 3a 0d 09 1a | 42 3a 20 f4 20 47 65 74 |....:...|B: . Get|
|00001420| 20 66 69 6c 65 20 61 67 | 65 20 28 69 6e 20 73 65 | file ag|e (in se|
|00001430| 63 6f 6e 64 73 29 20 66 | 72 6f 6d 20 61 64 64 72 |conds) f|rom addr|
|00001440| 65 73 73 65 73 2c 20 30 | 20 69 66 20 6e 6f 74 20 |esses, 0| if not |
|00001450| 73 74 61 6d 70 65 64 0d | 09 24 05 3a 0d 09 2e 26 |stamped.|.$.:...&|
|00001460| 20 e7 20 28 6c 6f 61 64 | 20 80 20 26 46 46 46 30 | . (load| . &FFF0|
|00001470| 30 30 30 30 29 3c 3e 26 | 46 46 46 30 30 30 30 30 |0000)<>&|FFF00000|
|00001480| 20 8c 0d 09 38 09 20 20 | 3d 20 30 0d 09 42 06 20 | ...8.  |= 0..B. |
|00001490| cc 0d 09 4c 2c 20 20 3d | 20 28 28 6c 6f 61 64 20 |...L,  =| ((load |
|000014a0| 80 20 26 30 30 30 30 30 | 30 46 46 29 2a 28 32 5e |. &00000|0FF)*(2^|
|000014b0| 33 32 29 2b 65 78 65 63 | 29 2f 31 30 30 0d 09 56 |32)+exec|)/100..V|
|000014c0| 06 20 cd 0d 09 60 05 3d | 0d 09 6a 04 0d 09 74 0d |. ...`.=|..j...t.|
|000014d0| dd 20 f2 75 70 64 61 74 | 65 0d 09 7e 05 3a 0d 09 |. .updat|e..~.:..|
|000014e0| 88 28 3a 20 f4 20 55 70 | 64 61 74 65 20 74 68 65 |.(: . Up|date the|
|000014f0| 20 64 75 6d 70 20 64 61 | 74 65 20 6d 61 72 6b 65 | dump da|te marke|
|00001500| 72 20 66 69 6c 65 0d 09 | 92 05 3a 0d 09 9c 34 20 |r file..|..:...4 |
|00001510| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 31 2c |.. "OS_F|ile",11,|
|00001520| 73 72 63 64 72 76 24 2b | 22 2e 24 2e 44 75 6d 70 |srcdrv$+|".$.Dump|
|00001530| 44 61 74 65 22 2c 26 30 | 30 34 2c 2c 30 2c 30 0d |Date",&0|04,,0,0.|
|00001540| 09 a6 2c 20 f2 64 64 61 | 74 65 20 3a 20 f1 20 22 |.., .dda|te : . "|
|00001550| 49 6e 66 6f 3a 20 20 64 | 75 6d 70 20 74 61 6b 65 |Info:  d|ump take|
|00001560| 6e 20 61 74 20 22 3b 64 | 61 74 65 0d 09 b0 05 e1 |n at ";d|ate.....|
|00001570| 0d 09 ba 04 0d 09 c4 05 | e0 0d ff                |........|...     |
+--------+-------------------------+-------------------------+--------+--------+